home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / rbbs_pc / ugly174.zip / UPGRADE4.BAT < prev    next >
DOS Batch File  |  1992-07-05  |  8KB  |  327 lines
  1. echo off
  2.  
  3. echo RBBS batch file to upgrade RBBS v17.4 with .MRGs using QB4.5
  4.  
  5. if %1?==? goto Usage
  6. if %1==Y goto RBBSTest
  7. if %1==y goto RBBSTest
  8. if %1==N goto End
  9. if %1==n goto End
  10.  
  11. :Start
  12.  
  13. if not exist C:\QB45\BLED.EXE goto NoBLED
  14. if not exist ANSIED.BAS goto CBled0
  15. if not exist VARMOD.EXE goto NoVARMOD
  16.  
  17. :CBled0
  18.  
  19. if not exist CVAR%1.BAS goto CBled1
  20. if exist CNFG-VAR.BAS del CNFG-VAR.BAS
  21. ren CVAR%1.BAS CNFG-VAR.BAS
  22.  
  23. :CBled1
  24.  
  25. if not exist CONFIG.BAS goto CBled2
  26. if not exist CNFG%1.MRG goto CBled2
  27. C:\QB45\BLED /B/L CONFIG.BAS CNFG%1.MRG CNFG%1.BAS
  28. del CONFIG.BAS
  29. del CNFG%1.MRG
  30. ren CNFG%1.BAS CONFIG.BAS
  31.  
  32. :CBled2
  33.  
  34. if not exist CNFG-SUB.BAS goto RBled0
  35. if not exist CSUB%1.MRG goto RBled0
  36. C:\QB45\BLED /B/L CNFG-SUB.BAS CSUB%1.MRG CSUB%1.BAS
  37. del CNFG-SUB.BAS
  38. del CSUB%1.MRG
  39. ren CSUB%1.BAS CNFG-SUB.BAS
  40.  
  41. :RBled0
  42.  
  43. if not exist RVAR%1.BAS goto RBled1
  44. if exist RBBS-VAR.BAS del RBBS-VAR.BAS
  45. ren RVAR%1.BAS RBBS-VAR.BAS
  46.  
  47. :RBled1
  48.  
  49. if not exist RBBS-PC.BAS goto RBled2
  50. if not exist R-PC%1.MRG goto RBled2
  51. C:\QB45\BLED /B/L RBBS-PC.BAS R-PC%1.MRG R-PC%1.BAS
  52. del RBBS-PC.BAS
  53. del R-PC%1.MRG
  54. ren R-PC%1.BAS RBBS-PC.BAS
  55.  
  56. :RBled2
  57.  
  58. if not exist RBBSSUB1.BAS goto RBled3
  59. if not exist RSB1%1.MRG goto RBled3
  60. C:\QB45\BLED /B/L RBBSSUB1.BAS RSB1%1.MRG RSB1%1.BAS
  61. del RBBSSUB1.BAS
  62. del RSB1%1.MRG
  63. ren RSB1%1.BAS RBBSSUB1.BAS
  64.  
  65. :RBled3
  66.  
  67. if not exist RBBSSUB2.BAS goto RBled4
  68. if not exist RSB2%1.MRG goto RBled4
  69. C:\QB45\BLED /B/L RBBSSUB2.BAS RSB2%1.MRG RSB2%1.BAS
  70. del RBBSSUB2.BAS
  71. del RSB2%1.MRG
  72. ren RSB2%1.BAS RBBSSUB2.BAS
  73.  
  74. :RBled4
  75.  
  76. if not exist RBBSSUB3.BAS goto RBled5
  77. if not exist RSB3%1.MRG goto RBled5
  78. C:\QB45\BLED /B/L RBBSSUB3.BAS RSB3%1.MRG RSB3%1.BAS
  79. del RBBSSUB3.BAS
  80. del RSB3%1.MRG
  81. ren RSB3%1.BAS RBBSSUB3.BAS
  82.  
  83. :RBled5
  84.  
  85. if not exist RBBSSUB4.BAS goto RBled6
  86. if not exist RSB4%1.MRG goto RBled6
  87. C:\QB45\BLED /B/L RBBSSUB4.BAS RSB4%1.MRG RSB4%1.BAS
  88. del RBBSSUB4.BAS
  89. del RSB4%1.MRG
  90. ren RSB4%1.BAS RBBSSUB4.BAS
  91.  
  92. :RBled6
  93.  
  94. if not exist RBBSSUB5.BAS goto ABled1
  95. if not exist RSB5%1.MRG goto ABled1
  96. C:\QB45\BLED /B/L RBBSSUB5.BAS RSB5%1.MRG RSB5%1.BAS
  97. del RBBSSUB5.BAS
  98. del RSB5%1.MRG
  99. ren RSB5%1.BAS RBBSSUB5.BAS
  100.  
  101. :ABled1
  102.  
  103. if not exist ANSIED.BAS goto ArgTest
  104. VARMOD %1
  105. if not exist AED4%1.MRG goto ArgTest
  106. C:\QB45\BLED /B/L ANSIED.BAS AED4%1.MRG AED4%1.BAS
  107. del ANSIED.BAS
  108. del AED4%1.MRG
  109. ren AED4%1.BAS ANSIED.BAS
  110.  
  111. :ArgTest
  112.  
  113. shift
  114. if %1?==? goto End
  115. if %1==Y goto RBBSTest
  116. if %1==y goto RBBSTest
  117. if %1==N goto End
  118. if %1==n goto End
  119. goto CBled0
  120.  
  121. :RBBSTest
  122.  
  123. if not exist RBBS-PC.BAS goto NoPC
  124. if not exist RBBSSUB1.BAS goto NoSUB1
  125. if not exist RBBSSUB2.BAS goto NoSUB2
  126. if not exist RBBSSUB3.BAS goto NoSUB3
  127. if not exist RBBSSUB4.BAS goto NoSUB4
  128. if not exist RBBSSUB5.BAS goto NoSUB5
  129. if not exist RBBS-VAR.BAS goto NoRVAR
  130.  
  131. if not exist C:\QB45\BC.EXE goto NoQB
  132. if not exist C:\QB45\LIB\BCOM45.LIB goto NoBCOM
  133. REM if not exist C:\QB45\LINK.EXE goto NoLINK
  134. if not exist 10-NET.OBJ goto No10
  135. if not exist ANSI17.OBJ goto NoANSI
  136. if not exist BDRIVEC2.OBJ goto NoBD
  137. if not exist FOSSCOMM.OBJ goto NoFOSS
  138. if not exist GIVEBK31.OBJ goto NoGIVE
  139. if not exist PC-NET.OBJ goto NoPCNET
  140. if not exist QBARCV6.OBJ goto NoQBARCV
  141. if not exist RBBSDV.OBJ goto NoDV
  142. if not exist RBBSML.OBJ goto NoML
  143. if not exist RBBSUTIL.OBJ goto NoUTIL
  144. if not exist XMODEM.OBJ goto NoXMOD
  145. if not exist RBBSHS.OBJ goto NoHS
  146. if not exist BASNOV.OBJ goto NoNOV
  147.  
  148. :ATest
  149.  
  150. if not exist ANSIED.BAS goto RCompile
  151. if not exist MOVCSTR.OBJ goto NoMOVC
  152. if not exist FINDWORD.OBJ goto NoFIND
  153.  
  154. :RCompile
  155.  
  156. echo Compiling RBBS-PC.BAS...
  157. C:\QB45\BC RBBS-PC.BAS,RBBS-PC,NUL,/O/C:4096/S/E/MBF;
  158. echo Compiling RBBSSUB1.BAS...
  159. C:\QB45\BC RBBSSUB1.BAS,RBBSSUB1,NUL,/X/O/MBF;
  160. echo Compiling RBBSSUB2.BAS...
  161. C:\QB45\BC RBBSSUB2.BAS,RBBSSUB2,NUL,/O/E/MBF;
  162. echo Compiling RBBSSUB3.BAS...
  163. C:\QB45\BC RBBSSUB3.BAS,RBBSSUB3,NUL,/O/E/MBF;
  164. echo Compiling RBBSSUB4.BAS...
  165. C:\QB45\BC RBBSSUB4.BAS,RBBSSUB4,NUL,/O/E/MBF;
  166. echo Compiling RBBSSUB5.BAS...
  167. C:\QB45\BC RBBSSUB5.BAS,RBBSSUB5,NUL,/O/E/MBF;
  168. if not exist ANSIED.BAS goto DoLink
  169. echo Compiling ANSIED.BAS...
  170. C:\QB45\BC ANSIED.BAS,ANSIED,NUL,/X/O/C:4096/E/MBF;
  171.  
  172. :DoLink
  173.  
  174. echo RBBS-PC+  >  LINK4.DAT
  175. echo RBBSSUB1+ >> LINK4.DAT
  176. echo RBBSSUB2+ >> LINK4.DAT
  177. echo RBBSSUB3+ >> LINK4.DAT
  178. echo RBBSSUB4+ >> LINK4.DAT
  179. echo RBBSSUB5+ >> LINK4.DAT
  180. if exist ANSIED.BAS echo ANSIED+   >> LINK4.DAT
  181. if exist ANSIED.BAS echo MOVCSTR+  >> LINK4.DAT
  182. if exist ANSIED.BAS echo FINDWORD+ >> LINK4.DAT
  183. echo QBARCV6+  >> LINK4.DAT
  184. echo ANSI17+   >> LINK4.DAT
  185. echo XMODEM+   >> LINK4.DAT
  186. echo RBBSML+   >> LINK4.DAT
  187. echo BDRIVEC2+ >> LINK4.DAT
  188. echo PC-NET+   >> LINK4.DAT
  189. echo 10-NET+   >> LINK4.DAT
  190. echo RBBSUTIL+ >> LINK4.DAT
  191. echo RBBSDV+   >> LINK4.DAT
  192. echo GIVEBK31+ >> LINK4.DAT
  193. echo RBBSHS+   >> LINK4.DAT
  194. echo BASNOV+   >> LINK4.DAT
  195. echo FOSSCOMM, >> LINK4.DAT
  196. echo RBBS-PC,  >> LINK4.DAT
  197. echo NUL,      >> LINK4.DAT
  198. echo C:\QB45\LIB\BCOM45.LIB /STACK:2048 /EXEPACK; >> LINK4.DAT
  199.  
  200. LINK @LINK4.DAT
  201.  
  202. :CCompile
  203.  
  204. if not exist CONFIG.BAS goto End
  205. if not exist CNFG-SUB.BAS goto NoCSUB
  206. if not exist CNFG-VAR.BAS goto NoCVAR
  207.  
  208. echo Compiling CONFIG.BAS...
  209. C:\QB45\BC CONFIG.BAS,CONFIG,NUL,/O/E/C:4096/S/MBF;
  210. echo Compiling CNFG-SUB.BAS...
  211. C:\QB45\BC CNFG-SUB.BAS,CNFG-SUB,NUL,/O/E/C:4096/S/MBF;
  212. LINK CONFIG+CNFG-SUB+RBBSUTIL+FOSSCOMM,CONFIG,NUL,C:\QB45\LIB\BCOM45.LIB/EXEPACK;
  213.  
  214. goto End
  215.  
  216. :NoQB
  217. echo Missing C:\QB45\BC.EXE... Aborted.
  218. goto End
  219. :NoLINK
  220. echo Missing C:\QB45\LINK.EXE... Aborted.
  221. goto End
  222. :NoBLED
  223. echo Missing C:\QB45\BLED.EXE... Aborted.
  224. goto End
  225. :No10
  226. echo Missing 10-NET.OBJ... Aborted.
  227. goto End
  228. :NoANSI
  229. echo Missing ANSI17.OBJ... Aborted.
  230. goto End
  231. :NoBD
  232. echo Missing BDRIVEC2.OBJ... Aborted.
  233. goto End
  234. :NoFOSS
  235. echo Missing FOSSCOMM.OBJ... Aborted.
  236. goto End
  237. :NoGIVE
  238. echo Missing GIVEBK31.OBJ... Aborted.
  239. goto End
  240. :NoPCNET
  241. echo Missing PC-NET.OBJ... Aborted.
  242. goto End
  243. :NoQBARCV
  244. echo Missing QBARCV6.OBJ... Aborted.
  245. goto End
  246. :NoDV
  247. echo Missing RBBSDV.OBJ... Aborted.
  248. goto End
  249. :NoML
  250. echo Missing RBBSML.OBJ... Aborted.
  251. goto End
  252. :NoUTIL
  253. echo Missing RBBSUTIL.OBJ... Aborted.
  254. goto End
  255. :NoXMOD
  256. echo Missing XMODEM.OBJ... Aborted.
  257. goto End
  258. :NoHS
  259. echo Missing RBBSHS.OBJ... Aborted.
  260. goto End
  261. :NoNOV
  262. echo Missing BASNOV.OBJ... Aborted.
  263. goto End
  264. :NoMOVC
  265. echo Missing MOVCSTR.OBJ (for ANSIED.BAS)... Aborted.
  266. goto End
  267. :NoFIND
  268. echo Missing FINDWORD.OBJ (for ANSIED.BAS)... Aborted.
  269. goto End
  270. :NoPC
  271. echo Missing RBBS-PC.BAS... Aborted.
  272. goto End
  273. :NoSUB1
  274. echo Missing RBBSSUB1.BAS... Aborted.
  275. goto End
  276. :NoSUB2
  277. echo Missing RBBSSUB2.BAS... Aborted.
  278. goto End
  279. :NoSUB3
  280. echo Missing RBBSSUB3.BAS... Aborted.
  281. goto End
  282. :NoSUB4
  283. echo Missing RBBSSUB4.BAS... Aborted.
  284. goto End
  285. :NoSUB5
  286. echo Missing RBBSSUB5.BAS... Aborted.
  287. goto End
  288. :NoRVAR
  289. echo Missing RBBS-VAR.BAS... Aborted.
  290. goto End
  291. :NoCNFG
  292. echo Missing CONFIG.BAS... Aborted.
  293. goto End
  294. :NoCSUB
  295. echo Missing CNFG-SUB.BAS... Aborted.
  296. goto End
  297. :NoCVAR
  298. echo Missing CNFG-VAR.BAS... Aborted.
  299. goto End
  300. :NoBCOM
  301. echo Missing C:\QB45\LIB\BCOM45.LIB... Aborted.
  302. goto End
  303. :NoVARMOD
  304. echo Missing VARMOD.EXE (for ANSIED.BAS)... Aborted.
  305. goto End
  306.  
  307. :Usage
  308. echo Usage: UPGRADE4 xxxx zzzz [Y][N]
  309. echo  
  310. echo        where xxxx and zzzz are the upgrade thingies to add to
  311. echo        the end of the MRG filenames.  Add the Y switch if you
  312. echo        want to compile the upgraded files, or N to skip the compile.
  313. echo  
  314. echo        If ANSIED.BAS exists, it will be compiled and linked into
  315. echo        the final RBBS-PC.EXE.  If not, not.
  316. echo  
  317. echo        If the CONFIG files exist, they'll also be upgraded with any
  318. echo        applicable merges.  If not, not.
  319. echo  
  320. echo        You can include as many merges as you like on the command
  321. echo        line.
  322. echo  
  323. echo    Ex: UPGRADE4 UGLY EDIT Y to add the UGLY and EDIT merges & compile
  324. goto End
  325.  
  326. :End
  327.